home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1995 October
/
EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso
/
Aminet
/
comm
/
cnet
/
cnettoolkit2a.lha
/
Routines
/
WHO
< prev
Wrap
Text File
|
1994-12-13
|
434b
|
5 lines
WHO: procedure;transmit 'r1# 'left('Handle',21)left('AG SPD From',38)left('Location',16)'r0';getuser 2225094
hp=result;do po=0 to hp;getportid po;pi=result;if pi=-1 then iterate;loadscratch pi;savescratch (-pi)
getscratch 1;ha=result;getscratch 15;ac=result;getwhere po;wh=result;getscratch 1201214;cp=result%10
getscratch 4;fr=result;transmit left(po,3)left(ha,21)left(ac,3)left(cp,4)left(fr,31)left(wh,16);end;return